home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - DOS Part 5 / DOS161.dsk / DUMP SEQUENTIAL.bas < prev    next >
BASIC Source File  |  2012-02-16  |  2KB  |  29 lines
  1. 10  ONERR  GOTO 310:EF = 0
  2. 20  TEXT : HOME : PRINT  CHR$(4)"BLOAD DUMP.SEQ.300-3C3,A$300"
  3. 30  HTAB 12: INVERSE : PRINT "DUMP SEQUENTIAL": NORMAL 
  4. 40  PRINT : HTAB 4: PRINT "BY S. L. LAWSON AND D. K. TRUSTY": PRINT 
  5. 45  PRINT : PRINT 
  6. 50  PRINT "THIS PROGRAM WAS DESIGNED TO ALLOW VIEW-ING OF THE SEQUENTIAL TEXT FILES ON THISDISK.": PRINT 
  7. 70  PRINT : PRINT "DO YOU DESIRE TO VIEW A FILE? ";: GET A$: IF A$ < >"Y"  THEN  END 
  8. 80  TEXT : HOME 
  9. 90  IF EF = 1  THEN EF = 0: HTAB 13: INVERSE : PRINT "FILE NOT FOUND": NORMAL 
  10. 100  PRINT : PRINT : PRINT "     TO EXIT THIS PROGRAM TYPE ";: INVERSE : PRINT "END": NORMAL 
  11. 110  VTAB 8: PRINT "IF YOU DESIRE THE CATALOG, TYPE ";: INVERSE : PRINT "CAT": NORMAL 
  12. 120  PRINT : INPUT "WHAT IS THE NAME OF THE FILE YOU DESIRE TO VIEW? ";A$
  13. 130  IF A$ = "CAT"  THEN  PRINT  CHR$(4)"CATALOG": GOTO 120
  14. 140  IF A$ = "END"  THEN  END 
  15. 150  HOME : PRINT "NOW VIEWING:  ";
  16. 160  INVERSE : PRINT A$: NORMAL 
  17. 170  PRINT 
  18. 180  PRINT "    PRESS ANY KEY FOR START AND STOP."
  19. 185  PRINT  SPC( 8)"TO ABORT TYPE <CONTROL C>."
  20. 190  PRINT "---------------------------------------"
  21. 200  POKE 34,5
  22. 210  PRINT  CHR$(4)"VERIFY"A$
  23. 220  CALL 768
  24. 230  PRINT : PRINT : HTAB 6: INVERSE : PRINT "PRESS RETURN TO CONTINUE";: NORMAL : PRINT " ";: INPUT "";A$
  25. 240  HOME : VTAB 10: PRINT "DO YOU WISH TO VIEW ANOTHER FILE? ";: GET A$
  26. 250  IF A$ < >"Y"  THEN  END 
  27. 260  GOTO 80
  28. 310 EF = 1: GOTO 80
  29. 63999  REM "<CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H>            <CTRL-J>DISTRIBUTED BY           <CTRL-J>THE G R A P E  PRESS            P.O. BOX 576              KEYPORT WA 98345